home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
COMMUNIC
/
H191.ZIP
/
CA29-3.EXE
/
TYMNET.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-10-23
|
2KB
|
43 lines
S0 = 9 ; Dialing directory number we'll use
; ----- TYMNET: Connect to TYMNET
; ----------------------------------------------------------------
; Note: This script may be used by itself (to put you at Tymnet's
; "log in:" prompt, or may be FCALLed by another script. This
; script is written to be FCALLed, executed directly (F2) or
; attached to a dialing directory entry (for manual execution).
; ----------------------------------------------------------------
; Note: Change the value above to reflect the dialing directory
; entry number you have prepared. The default is "9".
; ----------------------------------------------------------------
; S0 is modified by this script.
; ----------------------------------------------------------------
;
; Make connection to TYMNET. The dialing directory (or current
; .. setting) define parity and speed.
;
LEGEND " Dialing TYMNET... "
IF NOT LINKED ; If script not invoked from Alt-D
DIAL S0 ; Call dial dir entry number 9 (TYMNET)
IF FAILED EXIT ; IF esc out, terminate script
ENDIF ; End if not linked
;
; Make connection and let TYMNET sync with our parity/speed
;
WAITFOR "^M" ; Wait for modem to clear
RGET S0 1 ; Wait for any char (60 sec default)
TRANSMIT "a" ; Transmit char for synchronization
WAITFOR "log in:" ; Wait for prompt
;
; Set a few parms
;
SET MASK ON ; Turn on high bit mask
SET CDISPLAY ON ; Display ctl chars
;
; Exit - this script may be called
;
IF FCALLED FRETURN ; Return to caller if called
;
; And we're done
;
ALARM ; Sound alarm - we're done